parameters m.cod

do case
   case substr( m.cod, 3,5) = '00000'
        return left( m.Cod, 2) + '%%%'
        
   case substr( m.cod, 5,3) = '000'
        return left( m.Cod, 4) + '%'
        
   otherwise
        return left( m.Cod, 7) 
endcase
